home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / HiResGraphics / REDS_ART.ARC / RED'S ART DEPO (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  110 lines
  1. 1 IFX>.THEN10
  2. 2 POKE53280,.:POKE53281,.
  3. 3 PRINT"[147]"
  4. 4 PRINT"     [215]ELCOME TO [210]ED'S   [193]RT [196]EPOT..."
  5. 5 :
  6. 10 IFX=0THENX=1:LOAD"UNPACKER",8,1
  7. 20 IFX=1THENX=2:LOAD"BLOAD.O",8,1
  8. 30 :
  9. 40 BL=828:UNPACK=51456:HGR=51459
  10. 50 :
  11. 55 NP=10:DIM T$(NP),A$(NP),R$(NP)
  12. 57 FORX=1TONP:READT$(X),A$(X),R$(X):NEXT
  13. 60 GOSUB 50060: REM TITLE SCREEN
  14. 70 FORX=1TONP:GOSUB60000
  15. 80 PRINT"[154]"
  16. 82 PRINTSPC(19-LEN(T$(X))/2)""T$(X)"[146]"
  17. 84 PRINT""SPC(19-LEN(A$(X))/2)""A$(X)"[146]"
  18. 90 SYSBL,16384,R$(X)
  19. 92 :
  20. 94 IFPEEK(198)<>0THENGETA$:POKE198,0:IFA$="Q"ORA$="[209]"THENGOSUB10000
  21. 96 POKE249,224:POKE250,204
  22. 98 POKE251,0:POKE252,64
  23. 99 POKE253,0:POKE254,0:PRINT"[147]";:SYSUNPACK:SYSHGR
  24. 100 AG=3.34
  25. 110 FORDL=1TO1500:IFPEEK(198)=0THENNEXTDL:GOTO120
  26. 112 GETA$:IFA$="Q"ORA$="[209]"THENSYSHGR:GOSUB10000:SYSHGR
  27. 120 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
  28. 130 GOTO70
  29. 140 :
  30. 10000 REM A KEY WAS PRESSED
  31. 10005 POKE53281,1:POKE53280,5
  32. 10010 PRINT"[147][144]  [193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?"
  33. 10020 POKE198,0:WAIT198,1:GETAG$
  34. 10030 IFAG$="Y"ORAG$="[217]"THEN30000
  35. 10040 RETURN
  36. 30000 REM QUIT
  37. 30010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
  38. 30020 IFER<>63THENPRINT"[147]":END
  39. 30030 LOAD"$",8
  40. 50000 REM DATA <TITLE>,<AUTHOR>,<REAL>
  41. 50010 DATA "[215]ATER","[208]ATRICK [196]UGAN",WATER.SHP
  42. 50012 DATA "[196]EJA [214]U","[208]ATRICK [196]UGAN",DEJA.VU.SHP
  43. 50014 DATA "[194]IRD","[208]ATRICK [196]UGAN",BIRD.SHP
  44. 50016 DATA "[196]ISK [196]RIVE","[208]ATRICK [196]UGAN",DISKDRIVE.SHP
  45. 50020 DATA "[200]ORSE","[208]ATRICK [196]UGAN",HORSE.SHP
  46. 50022 DATA "[211]PACE","[208]ATRICK [196]UGAN",SPACE.SHP
  47. 50026 DATA "[211]TREET","[208]ATRICK [196]UGAN",STREET.SHP
  48. 50030 DATA "[211]TATUE","[208]ATRICK [196]UGAN",STATUE.SHP
  49. 50034 DATA "[211]INK","[208]ATRICK [196]UGAN",SINK.SHP
  50. 50040 DATA "[208]ENTE'","[208]ATRICK [196]UGAN",PENTE.SHP
  51. 50060 REM TITLE SCREEN
  52. 50065 PRINT"[147]":POKE53281,1:POKE53280,1
  53. 50072 PRINT"         [176]`````````````````[174]"
  54. 50082 PRINT"         [221][195]LUBSTAR [208]RESENTS[221][152] "
  55. 50092 PRINT"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  56. 50102 PRINT"                             "
  57. 50112 PRINT
  58. 50122 PRINT"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  59. 50132 PRINT"  [221]       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  60. 50142 PRINT"  [159][221]       [221][210]ED'S   [193]RT [196]EPOT[221][154] [159]       [221][152] "
  61. 50152 PRINT"  [159][221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  62. 50162 PRINT"  [159][221]        [154]                   [159]       [221][152] "
  63. 50172 PRINT"  [159][221]                                  [221][152][160]"
  64. 50182 PRINT"  [159][221]   [211]LIDE [211]HOW [208]RESENTER WRITTEN   [221][152][160]"
  65. 50192 PRINT"  [159][221]         BY [195]LUB [211]TAFF            [221][152][160]"
  66. 50202 PRINT"  [159][221]            ([195]) 1992              [221][152][160]"
  67. 50204 PRINT"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  68. 50212 PRINT"                                       "
  69. 50222 PRINT
  70. 50232 PRINT"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  71. 50242 PRINT"     [221]  [193]LL PICTURES CREATED BY   [221][152] "
  72. 50252 PRINT"     [221]       [208]ATRICK [196]UGAN        [221][152] "
  73. 50272 PRINT"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  74. 50282 PRINT"                                    "
  75. 50292 :
  76. 50302 PRINT"   [ pRESS ANY KEY TO START THE SHOW[160]]";
  77. 50312 PRINT"";
  78. 50314 POKE198,0:WAIT198,1:POKE198,0
  79. 50316 POKE53281,5:RETURN
  80. 59990 :
  81. 60000 :
  82. 60001 POKE53281,1:POKE53280,5
  83. 60005 PRINT"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  84. 60010 PRINT"    [221][195]LUBSTAR IS PROUD TO PRESENT:[221][152] "
  85. 60020 PRINT"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  86. 60030 PRINT"                                    "
  87. 60040 PRINT
  88. 60050 PRINT"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  89. 60060 PRINT"  [221]                                 [221][152] "
  90. 60070 PRINT"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] "
  91. 60080 PRINT"  [150][221]  [154][221]                          [221] [150]  [221][152] "
  92. 60090 PRINT"  [150][221]  [154][221]        CREATED BY        [221] [150]  [221][152] [146][160]"
  93. 60100 PRINT"  [150][221]  [154][221]                          [221] [150]  [221][152] [146] [160]";
  94. 60110 PRINT"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] "
  95. 60120 PRINT"  [150][221]                               [150]  [221][152] "
  96. 60130 PRINT"  [150][221]                                 [221][152] "
  97. 60140 PRINT"  [150][221]                                 [221][152] "
  98. 60150 PRINT"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] [146][160]"
  99. 60160 PRINT"  [150][221]  [154][221] [195]OMING SOON TO A COMPUTER[221] [150]  [221][152] [146][160]"
  100. 60170 PRINT"  [150][221]  [154][221]        NEAR YOU.         [221] [150]  [221][152] [146][160]"
  101. 60180 PRINT"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] [146][160]"
  102. 60190 PRINT"  [150][221]                               [150]  [221][152] [146][160]"
  103. 60200 PRINT"  [150][221]                                 [221][152] "
  104. 60210 PRINT"  [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  105. 60220 PRINT"                                      "
  106. 60230 PRINT
  107. 60240 PRINT"         [ pRESS 'q' TO EXIT ]";
  108. 60250 PRINT"";
  109. 60260 RETURN
  110.